5 PRINT"[147]":M=0:POKE53265,27
10 POKE53280,0:POKE53281,0:PRINT"          [158]T I G E R - C R E W"
20 FORI=49152TO49169:READX:POKEI,X:NEXT
30 FORJ=1TO10:SYS49152:NEXT:M=M+1
40 IFM=0THENPRINT"            T A S T E . . ."
44 IFM>0THENPOKE781,17:SYS59903:FORT=1TO500:NEXTT
45 PRINT"        E - T A S T E . . ."
50 GETA$:IFA$=""THEN50
60 IFA$<>"E"THEN30
70 LIST
200 DATA160,0,162,0,232,142,32,208,224,255,208,248,200,192,255,208,241,96